home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / docs / mags / agsaku19.lha / Muut / sym.e < prev    next >
Text File  |  1996-05-28  |  2KB  |  59 lines
  1. MODULE 'intuition/intuition', 'graphics/view'
  2. CONST V_LORES=0
  3.   DEF sptr=NIL, wptr=NIL, x, y, minx=4, miny=10, maxx, maxy, color=1
  4.   DEF i, kx, ky, lev, kork
  5. PROC main()
  6.  
  7.   sptr:=OpenS(320,256,4,V_LORES,' PITSILIINOJA - TAI LUMIHIUTALEITA')
  8.   maxx:=320-minx
  9.   maxy:=256-miny
  10.   IF sptr
  11.     wptr:=OpenW(minx,miny,maxx,maxy,IDCMP_CLOSEWINDOW,
  12.                 WFLG_CLOSEGADGET OR WFLG_ACTIVATE,
  13.                 ' RMB:pause, LMB: lopetus',sptr,$F,NIL)
  14.     IF wptr
  15.       FOR i:=2 TO 16
  16.             SetColour(sptr,i,Rnd(256),Rnd(256),Rnd(256))
  17.       ENDFOR
  18.       lev:=(maxx-minx-1)/8
  19.       kork:=(maxy-miny-1)/6
  20.       kx:=minx+(lev/2)+2
  21.       ky:=miny+(kork/2)+2
  22.       i:=Rnd(Val(arg))  /* alustaa "satunnaisluku" generaattorin
  23.                            antamasi syötteen perusteella */
  24.       WHILE Mouse()<>1
  25.       x:=0
  26.       y:=0
  27.       Box(kx-(lev/2)+1,ky-(kork/2)+1,kx+(lev/2)-1,ky+(kork/2)-1,1)
  28.       FOR i:=1 TO 100
  29.         INC color
  30.         Plot(kx+x,ky+y,color)
  31.         Plot(kx+x,ky-y,color)
  32.         Plot(kx-x,ky-y,color)
  33.         Plot(kx-x,ky+y,color)
  34.         Plot(kx+y,ky+x,color)
  35.         Plot(kx-y,ky+x,color)
  36.         Plot(kx-y,ky-x,color)
  37.         Plot(kx+y,ky-x,color)
  38.         x:=x+2-Rnd(5)
  39.         y:=y+1-Rnd(3)
  40.         IF Abs(x)>(lev/2-2) THEN x:=0
  41.         IF Abs(y)>(kork/2-2) THEN y:=0
  42.       ENDFOR
  43.       kx:=kx+lev
  44.       IF kx>(maxx+minx)
  45.         kx:=minx+(lev/2)+2
  46.         ky:=ky+kork
  47.         IF ky>(maxy+miny) THEN ky:=miny+(kork/2)+2
  48.       ENDIF
  49.       ENDWHILE
  50.     ELSE
  51.       WriteF('Could not open window\n')
  52.     ENDIF
  53.   ELSE
  54.     WriteF('Could not open screen\n')
  55.   ENDIF
  56.   IF wptr THEN CloseW(wptr)
  57.   IF sptr THEN CloseS(sptr)
  58. ENDPROC
  59.